home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / mathffp.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  85 lines
  1. pattern SPFix(_parm) is
  2.     push a6;
  3.     d0.l:=_parm;
  4.     a6:=MathBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # SPFIX
  7.  
  8. pattern SPFlt(_integer) is
  9.     push a6;
  10.     d0.l:=_integer;
  11.     a6:=MathBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # SPFLT
  14.  
  15. pattern SPCmp(_leftParm,_rightParm) is
  16.     push a6;
  17.     safe d1.l:=_leftParm; d0.l:=_rightParm;;
  18.     a6:=MathBase; jsr [a6-42];
  19.     pop a6;
  20. endp;                                                            # SPCMP
  21.  
  22. pattern SPTst(_parm) is
  23.     push a6;
  24.     d1.l:=_parm;
  25.     a6:=MathBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # SPTST
  28.  
  29. pattern SPAbs(_parm) is
  30.     push a6;
  31.     d0.l:=_parm;
  32.     a6:=MathBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # SPABS
  35.  
  36. pattern SPNeg(_parm) is
  37.     push a6;
  38.     d0.l:=_parm;
  39.     a6:=MathBase; jsr [a6-60];
  40.     pop a6;
  41. endp;                                                            # SPNEG
  42.  
  43. pattern SPAdd(_leftParm,_rightParm) is
  44.     push a6;
  45.     safe d1.l:=_leftParm; d0.l:=_rightParm;;
  46.     a6:=MathBase; jsr [a6-66];
  47.     pop a6;
  48. endp;                                                            # SPADD
  49.  
  50. pattern SPSub(_leftParm,_rightParm) is
  51.     push a6;
  52.     safe d1.l:=_leftParm; d0.l:=_rightParm;;
  53.     a6:=MathBase; jsr [a6-72];
  54.     pop a6;
  55. endp;                                                            # SPSUB
  56.  
  57. pattern SPMul(_leftParm,_rightParm) is
  58.     push a6;
  59.     safe d1.l:=_leftParm; d0.l:=_rightParm;;
  60.     a6:=MathBase; jsr [a6-78];
  61.     pop a6;
  62. endp;                                                            # SPMUL
  63.  
  64. pattern SPDiv(_leftParm,_rightParm) is
  65.     push a6;
  66.     safe d1.l:=_leftParm; d0.l:=_rightParm;;
  67.     a6:=MathBase; jsr [a6-84];
  68.     pop a6;
  69. endp;                                                            # SPDIV
  70.  
  71. pattern SPFloor(_parm) is
  72.     push a6;
  73.     d0.l:=_parm;
  74.     a6:=MathBase; jsr [a6-90];
  75.     pop a6;
  76. endp;                                                            # SPFLOOR
  77.  
  78. pattern SPCeil(_parm) is
  79.     push a6;
  80.     d0.l:=_parm;
  81.     a6:=MathBase; jsr [a6-96];
  82.     pop a6;
  83. endp;                                                            # SPCEIL
  84.  
  85.